message format spec fixes, commit # 12

diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el
index 495e95706ca70c0fbb61240fcaed92097dd4aed1..0d8fcfadc58136beb8d569419fe984eb8380e65a 100644 (file)
--- a/lisp/obsolete/fast-lock.el
+++ b/lisp/obsolete/fast-lock.el
@@ -226,10 +226,10 @@
               (progn
                 (when temp-message
                   (setq current-message (current-message))
-                  (message temp-message))
+                  (message "%s" temp-message))
                 ,@body)
            (when temp-message
-             (message current-message))))))
+             (message "%s" current-message))))))
  ;;
  ;; We use this for compatibility with a future Emacs.
  (or (fboundp 'defcustom)